#!/usr/bin/perl
use warnings;
use strict;
use CGI qw(:standard);

my $numero1 = param('n1');
my $numero2 = param('n2');

print header( -type => 'application/json' );

print "\{";
if ($numero1 && $numero2){
    my $resultado = $numero1 + $numero2;
    print "suma:\"$resultado\",";
    $resultado = $numero1 - $numero2;
    print "resta:\"$resultado\",";
    $resultado = $numero1 * $numero2;
    print "mutiplicacion:\"$resultado\"";
}else{
    print "error":\"error\"";
}
print  "\}";

